object FormActividadRed: TFormActividadRed Left = 263 Top = 144 Width = 689 Height = 534 BorderWidth = 3 Caption = 'Ver actividad de red' Color = 14609391 Constraints.MinHeight = 534 Constraints.MinWidth = 689 Font.Charset = DEFAULT_CHARSET Font.Color = clWindowText Font.Height = -11 Font.Name = 'Tahoma' Font.Style = [] Icon.Data = {} OldCreateOrder = False Position = poScreenCenter Scaled = False OnCloseQuery = FormCloseQuery OnShow = FormShow PixelsPerInch = 96 TextHeight = 13 object SeparadorInferior: TBevel Left = 0 Top = 459 Width = 675 Height = 42 Align = alBottom Shape = bsSpacer end object PlaButtonCerrar: TPlaButton Left = 568 Top = 469 Width = 90 Height = 21 Anchors = [akRight, akBottom] Caption = '&Cerrar' TabOrder = 0 Cancel = True Default = True ModalResult = 1 end object PPCActividadRed: TPlaPageControl Left = 0 Top = 0 Width = 675 Height = 459 ActivePage = PagActividadRed Align = alClient Color = clWhite TabOrder = 1 OnChange = TimerRefrescarListaTimer object PagActividadRed: TPlaTabSheet Caption = 'Actividad de red' TabVisible = False object PanelBloque1: TPlaPanel Left = 0 Top = 0 Width = 283 Height = 166 Align = alClient TabOrder = 0 object Shape7: TShape Left = 282 Top = 40 Width = 1 Height = 121 Align = alRight Brush.Color = 16705497 Pen.Color = 16705497 end object Shape9: TShape Left = 0 Top = 40 Width = 1 Height = 121 Align = alLeft Brush.Color = 16705497 Pen.Color = 16705497 end object PanelDatosRed: TPanel Left = 1 Top = 40 Width = 281 Height = 121 Align = alClient BevelOuter = bvNone Color = clWhite TabOrder = 2 OnResize = PanelDatosRedResize object LDesList: TLabel Left = 13 Top = 0 Width = 667 Height = 13 AutoSize = False Caption = 'Programas que tienen conexiones abiertas con la red' Font.Charset = DEFAULT_CHARSET Font.Color = clWindowText Font.Height = -11 Font.Name = 'Tahoma' Font.Style = [fsBold] ParentFont = False end object LabelConexiones: TLabel Left = 13 Top = 228 Width = 270 Height = 13 Caption = 'Conexiones abiertas del programa seleccionado' Font.Charset = DEFAULT_CHARSET Font.Color = clWindowText Font.Height = -11 Font.Name = 'Tahoma' Font.Style = [fsBold] ParentFont = False end object PlaListViewConexAbiertasRed: TPlaListView Left = 13 Top = 19 Width = 629 Height = 171 CanMoveColumns = False Color = clWhite CheckBoxes = False Columns = < item Width = 110 Caption = 'Programa' Font.Charset = DEFAULT_CHARSET Font.Color = clWindowText Font.Height = -11 Font.Name = 'MS Sans Serif' Font.Style = [] end item Width = 72 Caption = 'Ruta' Font.Charset = DEFAULT_CHARSET Font.Color = clWindowText Font.Height = -11 Font.Name = 'MS Sans Serif' Font.Style = [] end item Width = 110 Caption = 'Salidas permitidas' Font.Charset = DEFAULT_CHARSET Font.Color = clWindowText Font.Height = -11 Font.Name = 'MS Sans Serif' Font.Style = [] end item Width = 110 Caption = 'Salidas denegadas' Font.Charset = DEFAULT_CHARSET Font.Color = clWindowText Font.Height = -11 Font.Name = 'MS Sans Serif' Font.Style = [] end item Width = 110 Caption = 'Entradas permitidas' Font.Charset = DEFAULT_CHARSET Font.Color = clWindowText Font.Height = -11 Font.Name = 'MS Sans Serif' Font.Style = [] end item Width = 115 Caption = 'Entradas denegadas' Font.Charset = DEFAULT_CHARSET Font.Color = clWindowText Font.Height = -11 Font.Name = 'MS Sans Serif' Font.Style = [] end> DragCursor = crDrag DragMode = dmManual HideSelection = False ImageList = ImageList MultiSelect = False ParentColor = False ShowColumnHeaders = True TabOrder = 0 OnSelectItem = PlaListViewConexAbiertasRedSelectItem Data = {000100000000FE} end object PlaCheckBoxMostrar: TPlaCheckBox Left = 13 Top = 205 Width = 220 Height = 16 Caption = 'Mostrar programas del sistema operativo ' TabOrder = 1 OnClick = PlaCheckBoxMostrarClick State = cbChecked end object PlaListViewConexProgSeleccionado: TPlaListView Left = 13 Top = 250 Width = 629 Height = 127 Color = clWhite CheckBoxes = False Columns = < item Width = 125 Caption = 'Protocolo' Font.Charset = DEFAULT_CHARSET Font.Color = clWindowText Font.Height = -11 Font.Name = 'MS Sans Serif' Font.Style = [] end item Width = 126 Caption = 'Estado' Font.Charset = DEFAULT_CHARSET Font.Color = clWindowText Font.Height = -11 Font.Name = 'MS Sans Serif' Font.Style = [] end item Width = 125 Caption = 'Puerto local' Font.Charset = DEFAULT_CHARSET Font.Color = clWindowText Font.Height = -11 Font.Name = 'MS Sans Serif' Font.Style = [] end item Width = 125 Caption = 'Puerto remoto' Font.Charset = DEFAULT_CHARSET Font.Color = clWindowText Font.Height = -11 Font.Name = 'MS Sans Serif' Font.Style = [] end item Width = 126 Caption = 'Direcci�n IP' Font.Charset = DEFAULT_CHARSET Font.Color = clWindowText Font.Height = -11 Font.Name = 'MS Sans Serif' Font.Style = [] end> DragCursor = crDrag DragMode = dmManual Enabled = False HideSelection = False MultiSelect = False ParentColor = False ShowColumnHeaders = True TabOrder = 2 OnSelectItem = PlaListViewConexProgSeleccionadoSelectItem Data = { 0001010000000C54506C614C6973744974656D000000000C0A00FE0000000000 FE} end end object PlaPanel6: TPlaPanel Left = 0 Top = 0 Width = 283 Height = 40 Align = alTop TabOrder = 0 object Image1: TImage Left = 20 Top = 0 Width = 243 Height = 40 Align = alClient Picture.Data = {} Stretch = True end object IEsqSupIzq3: TImage Left = 0 Top = 0 Width = 20 Height = 40 Align = alLeft AutoSize = True Center = True Picture.Data = {} Stretch = True end object IEsqSupDer3: TImage Left = 263 Top = 0 Width = 20 Height = 40 Align = alRight AutoSize = True Center = True Picture.Data = {} Stretch = True end object Label1: TLabel Left = 204 Top = 4 Width = 250 Height = 16 Alignment = taCenter Anchors = [akLeft, akTop, akRight] Caption = 'An�lisis de tr�fico de red' Constraints.MinWidth = 250 Font.Charset = DEFAULT_CHARSET Font.Color = clWindowText Font.Height = -13 Font.Name = 'Tahoma' Font.Style = [fsBold, fsUnderline] ParentFont = False Transparent = True end end object PlaPanel7: TPlaPanel Left = 0 Top = 161 Width = 283 Height = 5 Align = alBottom TabOrder = 1 object IEsqInfIzq3: TImage Left = 0 Top = 0 Width = 20 Height = 5 Align = alLeft AutoSize = True Picture.Data = {} Stretch = True end object IEsqInfDer3: TImage Left = 263 Top = 0 Width = 20 Height = 5 Align = alRight AutoSize = True Picture.Data = {} Stretch = True end object Image5: TImage Left = 20 Top = 0 Width = 243 Height = 5 Align = alClient Center = True Picture.Data = {} Stretch = True end end end end object PagWIFI: TPlaTabSheet Caption = 'Wi-Fi' TabVisible = False object PlaPanel1: TPlaPanel Left = 4 Top = 11 Width = 657 Height = 417 Anchors = [akLeft, akTop, akRight, akBottom] TabOrder = 0 object Shape1: TShape Left = 656 Top = 40 Width = 1 Height = 372 Align = alRight Brush.Color = 16705497 Pen.Color = 16705497 end object Shape2: TShape Left = 0 Top = 40 Width = 1 Height = 372 Align = alLeft Brush.Color = 16705497 Pen.Color = 16705497 end object Panel1: TPanel Left = 1 Top = 40 Width = 655 Height = 372 Align = alClient BevelOuter = bvNone Color = clWhite TabOrder = 2 object Label3: TLabel Left = 13 Top = 0 Width = 138 Height = 13 Caption = 'Integrantes de red Wi-Fi' Font.Charset = DEFAULT_CHARSET Font.Color = clWindowText Font.Height = -11 Font.Name = 'Tahoma' Font.Style = [fsBold] ParentFont = False end object Label4: TLabel Left = 13 Top = 24 Width = 627 Height = 26 Caption = 'La siguiente tabla muestra los equipos conectados a la red Wi-Fi' + ' durante la sesi�n actual con autorizaci�n para conectarse a tu ' + 'PC.' Constraints.MaxWidth = 627 Constraints.MinHeight = 26 Constraints.MinWidth = 627 Layout = tlCenter WordWrap = True end object PlaListViewWIFI: TPlaListView Left = 13 Top = 56 Width = 629 Height = 308 Anchors = [akLeft, akTop, akRight, akBottom] CanMoveColumns = False Color = clWhite CheckBoxes = False Columns = < item Width = 387 Caption = 'Identificador' Font.Charset = DEFAULT_CHARSET Font.Color = clWindowText Font.Height = -11 Font.Name = 'MS Sans Serif' Font.Style = [] end item Width = 120 Caption = 'IP' Font.Charset = DEFAULT_CHARSET Font.Color = clWindowText Font.Height = -11 Font.Name = 'MS Sans Serif' Font.Style = [] end item Width = 120 Caption = 'MAC' Font.Charset = DEFAULT_CHARSET Font.Color = clWindowText Font.Height = -11 Font.Name = 'MS Sans Serif' Font.Style = [] end> DragCursor = crDrag DragMode = dmManual HideSelection = True MultiSelect = False ParentColor = False ShowColumnHeaders = True TabOrder = 0 Data = {000100000000FE} end end object PlaPanel2: TPlaPanel Left = 0 Top = 0 Width = 657 Height = 40 Align = alTop TabOrder = 0 object Image2: TImage Left = 20 Top = 0 Width = 617 Height = 40 Align = alClient Picture.Data = {} Stretch = True end object Image3: TImage Left = 0 Top = 0 Width = 20 Height = 40 Align = alLeft AutoSize = True Center = True Picture.Data = {} Stretch = True end object Image4: TImage Left = 637 Top = 0 Width = 20 Height = 40 Align = alRight AutoSize = True Center = True Picture.Data = {} Stretch = True end object Label2: TLabel Left = 204 Top = 4 Width = 250 Height = 16 Alignment = taCenter Anchors = [akLeft, akTop, akRight] Caption = 'An�lisis de tr�fico de red Wi-Fi' Constraints.MinWidth = 250 Font.Charset = DEFAULT_CHARSET Font.Color = clWindowText Font.Height = -13 Font.Name = 'Tahoma' Font.Style = [fsBold, fsUnderline] ParentFont = False Transparent = True end end object PlaPanel3: TPlaPanel Left = 0 Top = 412 Width = 657 Height = 5 Align = alBottom TabOrder = 1 object Image6: TImage Left = 0 Top = 0 Width = 20 Height = 5 Align = alLeft AutoSize = True Picture.Data = {} Stretch = True end object Image7: TImage Left = 637 Top = 0 Width = 20 Height = 5 Align = alRight AutoSize = True Picture.Data = {} Stretch = True end object Image8: TImage Left = 20 Top = 0 Width = 617 Height = 5 Align = alClient Center = True Picture.Data = {} Stretch = True end end end end end object TimerRefrescarLista: TTimer Enabled = False Interval = 2000 OnTimer = TimerRefrescarListaTimer Left = 19 Top = 419 end object ImageList: TImageList Left = 63 Top = 419 end end